home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tbbyte.arc / INBLOCK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-16  |  512 b   |  15 lines
  1.      repeat
  2.         ClrScr;
  3.         write ('Input filename  -->  ');
  4.         readln (infname);
  5.         assign(infile,infname);
  6.         {$I-} reset(infile) {$I+};
  7.         goodfile := (IOresult = 0);
  8.         if not goodfile then
  9.         begin
  10.           write (chr(bell));
  11.           writeln ('FILE ',infname,' NOT FOUND');
  12.           delay(3000)
  13.         end;
  14.      until goodfile;
  15.